home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 050a.dms / 050a.adf / EXAMPLE_PROGRAMS / example24_1.AMOS / example24_1.amosSourceCode
AMOS Source Code  |  1992-02-26  |  640b  |  26 lines
  1. '============= 
  2. 'Example24_1.Amos  
  3. '==============
  4.  
  5. Rem fade each colour manually using the COLOUR instruction. See chap 24. 
  6. '----------------------------------------------------------------------- 
  7. Flash Off : Hide 
  8. Load Iff "df0:pics/sonic.iff",0
  9.  
  10.  
  11. Rem A for next loop to cover all 16 colours of this picture
  12. Rem if the picture used 32 colours the range would be 0-31 
  13. '----------------------------------------------------------
  14. For A=0 To 15
  15. Locate 0,23
  16. Print "FADING COLOURS"
  17.  
  18. Rem set COLOUR A to black
  19. '------------------------
  20. Colour A,$0
  21.  
  22. Wait 50
  23. Next A
  24.  
  25. Rem this leaves you in direct mode, press escape to get to the editor
  26. Direct